* Produce Figure 2 - Distribution of the respondents according to whether they live with their parents or not 
	
	clear all
	
	cd "${data}"	
		
		use data_ess.dta, clear
		
		graph set window fontface "Arial Narrow"
		
		tw hist agea if dummy_parents==0, xscale(r(10(10)120)) xl(10(10)120) xline(18, lwidth(thick) lpattern(dash) lcolor(red)) color(grey13%15) ///
		xline(34, lwidth(thick) lpattern(dash) lcolor(red)) color(grey13%15) ///
		|| hist agea if dummy_parents==1, color(grey13%40) legend(on order(1 "No-Cohabitation" 2 "Cohabitation") ring(0) pos(2)) ///
		scheme(lean1) 
		
		graph export ${figures}/Figure2_histAgecohabitation.pdf, replace
		
		
